﻿Imports System.Data  


Public Class CTInstrumentoDatos

 Private _acr      As String 
 private _sh_Nam   As String 
 private _numInst  As Integer 
    Private _isin As String


'NULL, representa un campo varchar con valor DBNull
'-1 , representa un campo integer con valor DBNull


Public Sub new(ByRef registro As DataRow)
 
_acr      = IIf(IsDBNull(registro("INST_ACR")),"NULL",registro("INST_ACR"))
_sh_Nam   = IIf(IsDBNull(registro("INST_SH_NAM")),"NULL",registro("INST_SH_NAM"))
_numInst  = IIf(IsDBNull(registro("INST_NUM")),"-1",registro("INST_NUM"))

End Sub

    Public Sub New()
        _acr = ""
        _sh_Nam = ""
        _numInst = 0
        _isin = ""
    End Sub


Public Property Acr() As String
    Get
        Return _acr
    End Get
    Set(ByVal value As String)
        _acr = value
    End Set
End Property



Public Property Sh_Nam() As String
    Get
        Return _sh_Nam
    End Get
    Set(ByVal value As String)
        _sh_Nam = value
    End Set
End Property



Public Property NumInst() As Integer 
    Get
        Return _numInst
    End Get
    Set(ByVal value As Integer )
        _numInst = value
    End Set
End Property

    Public Property Isin() As String
        Get
            Return _isin
        End Get
        Set(ByVal value As String)
            _isin = value
        End Set
    End Property



End Class
